TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/CRS/crs03.d81/arcaid.arc/MAIN

Commodore BASIC | 2009-10-10 | 5KB | 158 lines

0 REM" [141][158]***[153][146] [195]OMPATIBLE W/ [193][210][195] [159]V2.10[146][158] ***
1 [139] GL[178]1 [167] [153]"SYSSTR$ISK VALRROR!":[129]Z[178]1[164]800:[130]:[137] 260
2 [139] GL[178]2 [167] [153]"SYSSTR$RIGHT$(null)(null) VALRROR!":[129]Z[178]1[164]800:[130]:[137] 320
3 [139] GL[178]3 [167] [153]"SYSSTR$ISK VALRROR!":[129]Z[178]1[164]800:[130]:[137] 270
4 [139] GL[178]4 [167] [153]"SYSSTR$ISK VALRROR!":[129]Z[178]1[164]800:[130]:[137] 280
10 [141] 340:[141] 1250
20 [139] GL[178]9230 [167] 950
30 [151] 53281,0:[151]53280,0:[153]"LOAD";
40 [139] [194](2)[177]0 [167] [137] 110
50 [153]"LOADLEFT$OW MANY DRIVES ARE YOU GOING TO USE?"
60 [153]"        SYS(null)WAITNE OR SYS(null)WAITULTIPLE STR$RIVES?"
70 [161] A$:[139] A$[178]"" [167] 70
80 [139] A$[179][177]"(null)" [175] A$[179][177]"O" [175] A$[179][177]"(null)" [175] A$[179][177]"M" [167] 70
90 [151] 2,1
100 [139] A$[178]"M" [176] A$[178]"(null)" [167] [151] 2,2:[137]110
110 [153]"LOAD               ATN(null)LEN ATNRIGHT$STR$ V5.5"
120 [141] 470
130 [153]"                    PEEKY:"
140 [153]"   LENHOOSE ONE OF THE FOLLOWING OPTIONS:"
150 [153]"            SYSLENWAITREATE AN ATN(null)LEN FILE.
160 PRINT"      [158][193][146]PPEND TO AN EXISING [193][210][195] FILE.
170 [153]"           SYSSTR$WAITISSOLVE AN ATN(null)LEN FILE.
180 PRINT"              [158][198][146]ILE MANAGEMENT."
190 IF PEEK(2)=2 THEN PRINT"                [158][199][146]ATHER FILES."
200 PRINT"    [158][213][146]SE DIFFERENT DRIVE CONFIGURATION."
210 PRINT"               [158][197][146]XIT [193][210][195] [193][201][196]."
220 GET A$:IF A$="" THEN GOSUB 420:GOSUB 540: GOTO220
230 IFA$<>"D"ANDA$<>"[196]"ANDA$<>"C"ANDA$<>"[195]"ANDA$<>"A"AND A$<>"[193]"THEN VA=1
240 IFA$<>"[198]"ANDA$<>"F"ANDA$<>"E"ANDA$<>"[197]"AND VA=1 THEN VA=2
250 IFA$<>"[199]"ANDA$<>"G"ANDA$<>"U"ANDA$<>"[213]"ANDVA=2THENVA=0:GOTO220
260 IFA$="[195]"ORA$="C"THENGL=1:PRINT"[147]";SPC(15);"[204]OADING...[144]":N$="MODULE1":GOTO1450
270 IFA$="[193]"ORA$="A"THENGL=3:PRINT"[147]";SPC(15);"[204]OADING...[144]":N$="MODULE3":GOTO1450
278 IFA$<>"[199]"ANDA$<>"G" THEN 290
279 IF PEEK(2)<>2 THEN 220
280 GL=4:PRINT"[147]";SPC(15);"[204]OADING...[144]":N$="MODULE4":GOTO1450
290 IF A$="[197]" OR A$="E" THEN 590
300 IF A$="[198]" OR A$="F" THEN 690
310 IF A$="[213]" OR A$="U" THEN 50
320 GL=2:PRINT"[147]";SPC(15);"[204]OADING...[144]":N$="MODULE2":GOTO 1450
330 END
340 REM:SCROLLING MESSAGE
350 A$="                   [215]RITTEN BY [196]AN [204]EVINE FOR THOSE WHO WANT MENUS WHEN"
360 B$=" [195]REATING OR [196]ISSOLVING [193][210][195] FILES.  [201]T MAKES IT LIKE [204]IBRARY AND [204]YNX."
370 C$="  [208]LEASE SEND ALL QUESTIONS, COMMENTS OR"
380 D$=" SUGGESTIONS TO ME, [195]64 [213][199][207][211][202], THROUGH [197]-MAIL ON [209]-[204]INK! "
390 E$="                  "
400 MS$=E$+A$+B$+C$+D$
410 RETURN
420 PRINT"[158]";
430 X=X+1:IF X=256 THEN X=1
440 PRINTMID$(MS$,X,40);"[146]";:FOR DY=1 TO 10:NEXT
450 RETURN
460 REM: APPEND TO AN ARC FILE
470 REM BY-LINE
480 BL$(1)="[158][196][154]AN [204]EVIN[158]E"
490 BL$(2)="[196][158]A[154]N [204]EVI[158]NE"
500 BL$(3)="[196]A[158]N[154] [204]EV[158]INE"
510 BL$(4)="[196]AN[158] [154][204]E[158]VINE"
520 BL$(5)="[196]AN [158][204][154][158]EVINE"
530 DI=1:RETURN
540 B=B+DI
550 IF B=6 THEN B=5: DI=-1
560 IF B=0 THEN DI=1
570 PRINT"                ";BL$(B):RETURN
580 POKE 631,13:POKE632,71:POKE 633,207:POKE635,13:POKE636,13:POKE198,5:GOTO 330
590 PRINT"[147]           [196]O YOU WANT TO:"
600 PRINT"           [158][210][146]ETURN TO [193][210][195] [193][201][196],"
610 PRINT"           [158][197][146]XIT [193][210][195] [193][201][196], OR"
620 PRINT"           [158][199][146]OTO [194][193][211][201][195] 2.0?"
630 GET A$:IF A$="" THEN 630
640 IF A$="[210]" OR A$="R" THEN RUN
650 IF A$="[197]" OR A$="E" THEN PRINT"[147]":NEW
660 IFA$="[199]"ORA$="G"THENPRINT"[147]":POKE198,5:POKE631,67:POKE632,79:POKE633,76:POKE634,68:POKE635,13
670 IF PEEK(198)=5 THEN END
680 GOTO 630
690 REM: FILE MANAGEMENT
700 PRINT"[147][212]HIS ENTIRE SECTION ONLY USES DRIVE 8,0![146]"
710 PRINT"            [198]ILE [205]ANAGEMENT"
720 PRINT"           [158]$[146] FOR A DIRECTORY."
730 PRINT"           [158][198][146]ORMAT A DISK."
740 PRINT"           [158][214][146]ALIDATE A DISK."
750 PRINT"           [158][211][146]CRATCH FILES."
760 PRINT"           [158][210][146]ENAME A FILE."
770 PRINT"           [158][204][146]OAD ADDRESS OF FILE."
780 PRINT"           [158][195][146]ONTENTS OF AN [193][210][195] FILE."
790 PRINT"           [158][193][146]BORT TO MAIN MEN."
800 GET A$:IF A$<>"" THEN 860
810 TG=1-TG
820 IF TG=0 THEN PRINT"[158]";
830 IF TG=1 THEN PRINT"";
840 PRINT"[212]HIS ENTIRE SECTION ONLY USES DRIVE 8,0![146]":FOR D=1 TO 40:NEXT
850 GOTO 800
860 IF A$<>"[198]" ANDA$<>"F" THEN 910
870 PRINT"[147][198]ORMAT A DISK.[146]"
880 INPUT "[196]ISK [206]AME,[201][196]";DN$,ID$
890 OPEN 15,8,15,"N0:"+DN$+","+ID$
900 CLOSE 15:GOTO 920
910 IF A$<>"$" THEN 980
920 PRINT"[147]        [200]OLD DOWN [211][200][201][198][212] TO PAUSE."
930 PRINT"DIR":PRINT"":GL=9230
940 GOTO580
950 PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":POKE 198,0:GL=0
960 GET A$:IF A$="" THEN 960
970 GOTO 690
980 IF A$<>"V"AND A$<>"[214]" THEN 1020
990 PRINT"[147][214]ALIDATING IN PROGRESS...[208]LEASE WAIT!!!"
1000 OPEN 15,8,15,"V":CLOSE15:GOTO 920
1010 GOTO 800
1020 IF A$<>"S" AND A$<>"[211]" THEN 1070
1030 PRINT"[147][211]CRATCH FILES."
1040 INPUT "[198]ILE OR [208]ATTERN";F$
1050 OPEN 15,8,15,"S0:"+F$
1060 F$="":CLOSE15:GOTO 920
1070 IF A$<>"R" AND A$<>"[210]" THEN 1130
1080 PRINT"[147][210]ENAME [198]ILE."
1090 INPUT"[195]URRENT FILENAME";F$
1100 INPUT"[206]EW FILENAME";N$
1110 OPEN 15,8,15,"R0:"+N$+"="+F$
1120 F$="":N$="":CLOSE15:GOTO 920
1130 IF A$<>"L" AND A$<>"[204]" THEN 1180
1140 PRINT"[147][204]OAD ADDRESS OF A FILE."
1150 INPUT"[198]ILE NAME";F$
1160 PRINT"[147]START A:";F$:GL=9230:PRINT""
1170 GOTO 580
1180 IF A$<>"[195]" AND A$<>"C" THEN 1230
1190 PRINT"[147][195]ONTENTS OF AN [193][210][195] FILE"
1200 INPUT"[193][210][195] FILENAME";F$
1210 PRINT"[147]ARC/L A:"F$:PRINT"":GL=9230
1220 GOTO 580
1230 IF A$="A" OR A$="[193]" THEN RUN
1240 GOTO 800
1250 REM: GET ARC VERSION #
1260 FOR VN=49309 TO 49312
1270 VN$=VN$+CHR$(PEEK(VN))
1280 NEXT
1290 IF VN$<>"1.34" THEN VN$="":RETURN
1300 PRINT"[147]";
1310 PRINT"[217]OU ARE ATTEMPTING TO USE A ";
1320 PRINT"VERSION OF  [193][210][195] [193][201][196] THAT IS NOT ";
1330 PRINT"100% COMPATIBLE WITHTHE ";
1340 PRINT"VERSION OF [193][210][195] THAT YOU ARE ";
1350 PRINT"USING.  [210]IGHT NOW YOU ARE USING ";
1360 PRINT"VERSION ";VN$;" WHENYOU SHOULD ";
1370 PRINT"BE USING VERSION 1.34 OF [193][210][195][193][201][196].";
1380 PRINT"  [215]HEN YOU GET THE CORRECT VERSION  OF ";
1390 PRINT"[193][210][195], THIS PROGRAM WILL WORK. ";
1400 PRINT"[213]NTIL   YOU GET THE CORRECT VERSION,";
1410 PRINT" YOU WILL   NOT BE ABLE TO ACCESS ";
1420 PRINT"THE REST OF THE   PROGRAM."
1430 GOTO 1430
1440 REM: FIX LOAD ROUTINE!
1450 N$="L[207]"+CHR$(34)+N$+CHR$(34)+",8"+CHR$(0)+"R[213]"+CHR$(0)
1460 FOR J=1 TO LEN(N$)
1470 POKE 511+J,ASC(MID$(N$,J)):NEXT
1480 POKE 781,255:POKE782,1
1490 POKE 198,3:POKE631,71:POKE632,111:POKE633,13
1500 SYS 42118